home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_bas / pbc32.zip / PBC$BAS.ZIP / UNSPLIT.BAS < prev    next >
BASIC Source File  |  1996-04-10  |  2KB  |  30 lines
  1. '   +----------------------------------------------------------------------+
  2. '   |                                                                      |
  3. '   |   PBClone  (C) Copyright 1996 Charon Software, All Rights Reserved   |
  4. '   |                                                                      |
  5. '   +----------------------------------------------------------------------+
  6.  
  7.    DECLARE SUB BkScroll (BYVAL TopRow%, BYVAL LeftCol%, BYVAL BottomRow%, BYVAL RightCol%, BYVAL Times%)
  8.    DECLARE SUB DelayV (BYVAL MilliSeconds%)
  9.    DECLARE SUB DPutScreen (BYVAL DSeg%, BYVAL DOfs%, BYVAL TopRow%, BYVAL LeftCol%, BYVAL BottomRow%, BYVAL RightCol%, BYVAL Page%, BYVAL Fast%)
  10.    DECLARE SUB Scroll (BYVAL TopRow%, BYVAL LeftCol%, BYVAL BottomRow%, BYVAL RightCol%, BYVAL Times%)
  11.  
  12. SUB UnSplit (Scrn%(), Fast%)
  13.    L% = LBOUND(Scrn%)
  14.    FOR tmp% = 0 TO 24
  15.       Part1% = tmp% * 80
  16.       Scroll 1, 1, 25, 20, 1
  17.       DPutScreen VARSEG(Scrn%(L% + Part1%)), VARPTR(Scrn%(L% + Part1%)), 25, 1, 25, 20, 0, Fast%
  18.       Part2% = 1940 - Part1%
  19.       BkScroll 1, 21, 25, 40, 1
  20.       DPutScreen VARSEG(Scrn%(L% + Part2%)), VARPTR(Scrn%(L% + Part2%)), 1, 21, 1, 40, 0, Fast%
  21.       Scroll 1, 41, 25, 60, 1
  22.       Part3% = Part1% + 40
  23.       DPutScreen VARSEG(Scrn%(L% + Part3%)), VARPTR(Scrn%(L% + Part3%)), 25, 41, 25, 60, 0, Fast%
  24.       BkScroll 1, 61, 25, 80, 1
  25.       Part4% = 1980 - Part1%
  26.       DPutScreen VARSEG(Scrn%(L% + Part4%)), VARPTR(Scrn%(L% + Part4%)), 1, 61, 1, 80, 0, Fast%
  27.       DelayV 10
  28.    NEXT
  29. END SUB
  30.